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WORD UNJUHBLE PROGRAM 
BUG RACE 

MASTER PROGRAM CATALOG 
LEVEL I LINEAR REGRESSION 
LEVEL II LINEAR REGRESSION 
CHECK (PRINTS CHECKS) 
BILLS (DATA FILES) 
CHECK VEAR TO DATE DATA 



********** the NEWSLETTER IS STILL IN TROUBLE ********** 

WE NEED PROGRAMS AND ARTICLES Of ANY KIND. WE ARE NOW MORE THAN 
98 DAVS BEHIND WITH THE NEWSLETTER. PLEASE HELP US GET UP TO 
DATE. SEND IN ANY PROGRAMS OR ARTICLES YOU HAVE WE WILL BE GLAD 
TO PRINT THEN IN THE NEWSLETTER IF YOU COULD SEND ANY PROGRAMS 
ON TAPE IT WILL MAKE THEM EASIER FOR US TO PUT THEM IN THE 
NEWSLETTER. WE WILL MAKE A HARD COPY THE RIGHT SIZE FORM YOUR 
TAPE. YOUR EDITOR: R. GORDON LLOYD 



DEAR MR. LLOYD, 

I RECEIVED YOUR NOTE THAT YOU WERE SHORT OF MATERIAL FOR THE 
NEWSLETTER. ENCLOSED IS A TAPE CONTAINING FIVE MISCELLANEOUS 
PROGRAMS THAT MIGHT BE SUITABLE. 

MOST ARE SELF-EXPLANATORY BUT A FEW NOTES ARE IN ORDER. THEY 
ARE ALL ORIGINAL PROGRAMS ALTHOUGH MOST WERE INSPIRED BY 
ARTICLES OR IDEAS IN OTHER PUBLICATIONS. 
WORD UNSCRAMBLING PROGRAM. INSPIRED BY A DISCUSSION IN THE 

ORANGE COUNTY USERS GROUP NEWSLETTER. 
BUG RACE: FROM TURTLE RACE BY RON MOSHLIS IN MAY 79 OF THIS 

NEWSLETTER. 
CATALOG: ENTIRELY ORIGINAL BUT PROBABLY SIMILIAR TO OTHER 

CATALOG OR MENU PROGRAMS. 

CATALOG: LINES 298 * 388 SPECIFY RANGE OF DISK NUMBERS. (I 

CURRENTLY USE 181 TO 122 AND 998 TO 999) CHANGE FOR 

YOUR DISK NUMBERS. 

LINE 348 SET D=HIGHEST DISK « IN USE. 

LINE 588 FOR SINGLE DISK, CHANGE DIRVE tl TO #8 

LINE 615 DELETE (FOR A SPECIAL SYSTEM PROGRAM DISK) 

LINE 628 FOR SINGLE DISK, DELETE 1 AFTER MENU. 

P. S. DELETE DATA LINES AND REPLACE WITH YOUR OWN USING THE 
FORMAT OF DISK #, • OF PROGRAMS, FREE SPACE, PROGRAM 
TITLES. EACH INDIVIDUAL DISK CONTAINS A SIMILIAR BUT 
SMALLER PROGRAM CALLED MENU WHICH ONLY CONTAINS DATA 
FOR THAT DISK. 



CORDIALLY, 

JACK D. HEGSETH 

BOX 62, 1921 E. 288TH ST. 

SPANAWAY, WA 98387 



18 REM WORD UNJUMBLE PROGRAM 

20 REM BY J. D. HEGSETH COPYRIGHT APRIL 1979 

188 CLS:A$=" M 

110 PRINT"THIS IS A WORD UNSCRAMBLING PROGRAM. M 

120 PR I NT "ENTER ANY SEQUENCE OF LETTERS UP TO NINE. " 

138 PRINT-THE PROGRAM WILL PRINT OUT ALL COMBINATIONS. " 

140 PRINT: INPUT A* 

158 A=LEN(A*> : IF A<1 OR A>9 THEN PRINT"1 TO 9 LETTERS ONLY" 

FOR 1=1 TO 1000 NEXT I: GOTO 100 
160 PRINT :INPUT"DO YOU WANT LINEPRINTER OUTPUT (0=NO 1=YES)";B 
200 REM DISASSEMBLE WORD 
218 F-i 

228 FOR 1=1 TO A 
230 A*(I)=MID*<A«, 1,1) 
240 F»F*I 
250 NEXT I 
260 PRINT 

270 ON A GOSUB 1808, 2800, 3000, 4000, 5000, 6000, 7000, 8000, 9000 
280 PRINT: PR I NT "THESE ARE THE";F; 

" COMBINATIONS OF THE ORIGINAL"; A; " LETTERS. " 
290 IF B»i THEN LPRINT :LPRINT"THESE ARE THE";F; 

" COMBINATIONS OF THE ORIGINAL"; A; " LETTERS. " 
380 REM END ROUTINE OR REPEAT ROUTINE 
318 PRINT: INPUT "ANOTHER WORD (YES OR NO)";B* 
320 B*»LEFT*(B#, 1) 

338 IF B*="Y" THEN RUN ELSE IF B$="N" THEN END ELSE GOTO 318 
508 REM PRINT ROUTINE 
518 WD*«"" 
528 FOR 10=1 TO A 
538 WD*»WD$+A»(I0) 
540 NEXT 10 

550 PRINT WD$, : IF B=l THEN LPRINT WD$, 
560 RETURN 

1000 REM 1 LETTER SORT 
1818 GOSUB 588 
1828 RETURN 

2888 REM 2 LETTER SORT 
2010 FOR 1=1 TO 2 
2820 GOSUB 5O0 
2030 A$(8)=A#<1> 
2040 A*(1)=A*(2) 
2050 A*(2)=A$(0) 
2O60 NEXT I 
2070 RETURN 
3000 REM 3 LETTER SORT 
3010 FOR J=l TO 3 
3820 GOSUB 2000 
3030 FOR 1=0 TO 2 
3040 A*(I)=A*(I+1) 
3050 NEXT I 
3060 A*(I)=A$(8) 
3070 NEXT J 
3080 RETURN 
4000 REM 4 LETTER SORT 
4018 FOR K«l TO 4 
4828 GOSUB 3000 
4030 FOR 1=0 TO 3 
4040 A*(I)=A#(I+1) 
4050 NEXT I 

TRS-86 USERS 3WJP - 'OSLETTEP - 
QCTOER t??9. VOLUME 2, NUMBER 10 - Wj£ ?i 



4066 


A*<I)=A*<6> 


4676 


NEXT K 


4886 


RETURN 




REM 5 LETTER SORT 


5616 


FOR L-l TO 5 


5626 


QOSUB 4600 


5636 


FOR I»0 TO 4 




A*<I)=A*<I+1> 


5656 


NEXT I 


5668 


A*<I>=A*<6> 


5678 


NEXT L 


5888 


RETURN 


6868 


REM 6 LETTER SORT 


6618 


FOR M-l TO 6 


6626 


GOSUB 5886 


6838 


FOR 1-6 TO 5 


6846 


A*<I>-A*<I+1> 


6858 


NEXT I 


6860 


A*<I>«A*<8> 


6678 


NEXT M 


6686 


RETURN 


7666 


REM 7 LETTER SORT 


7618 


FOR N-i TO 7 


7626 


GOSUB 6888 


7038 


FOR 1-8 TO 6 



7648 


A*<I>=A*<I+1> 


7856 


NEXT I 


7868 


A*<I)=A*<6> 


7878 


NEXT N 


7688 


RETURN 


8800 


REM 8 LETTER SORT 


8818 


FOR 0=1 TO 8 


8020 


GOSUB 7666 


8836 


FOR 1=6 TO 7 


8846 


A*<I)=A*<I+1> 


8858 


NEXT I 


8860 


A*<I)=A*<8> 


8870 


NEXT 


8888 


RETURN 


9088 


REM 9 LETTER SORT 


9618 


FOR P-l TO 9 


9626 


GOSUB 8860 


9638 


FOR 1=0 TO 8 


9648 


A*<I)=A*<I+i> 


9058 


NEXT I 


9068 


A*<I)«A*<6> 


9070 


NEXT P 


9088 


RETURN 


9999 


END 
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186/* 146/* 156/3 158/$ 226 238/* 238<* 276 286 298 

528 538<* 2638<*2 2646<*2 2658<*2 3846<*2 3666<*2 

4648<:*2 4868(*2 5648(*2 5866<*2 6648<*2 6866<*2 7646<*2 

7868<*2 8840 ($2 8868<*2 9648(*2 9868<*2 

168 298 316/* 326/*2 338/*2 558 

218 248/2 288 298 

158/2 228 238/2 246 258 2818 2666 3838 3848/2 3856 

3666 4838 4848/2 4658 4868 5838 5646/2 5856 5668 

6838 6848/2 6858 6868 7838 7848/2 7858 7866 8836 

8848/2 8858 8868 9836 9648/2 9656 9666 

528 538 548 

3818 3876 

4816 4876 

5818 5878 

6818 6876 

7618 7876 

8818 8676 

9818 9878 

518/* 538/*2 558/*2 



THE BITPICKER'S TOOLBOX 
By Steve MacGregor, 3701 W Wethersfleld, Phoenix, Arizona 85029 



If you have a 16X (or more) Level II computer, and 
program to someone with only 4K of RAM, a kind thi 
check to see that it will load and run on nis macn 
way to do this is to answer the MEMORY SIZE? quest 
to simulate a 4K machine. Any BASIC program that 
will run in 4K. Note that the number to type is t 
the last byte of RAM, plus two, in decimal. And, 
can simulate a 16K RAM on a machine with 32K or mo 



are sending a 
ng to do is to 
ine. The easy 
ion with 20481 
will run then 
ne address of 
of course, you 
re, etc. 



18 REM BUG RACE BV JD HEGSETH APRIL 1979 

78 REM DEFINE BUG STRINGS 

86 fl*=STR I NG* < 2, 174 ) +CHR* < 148 ) 

98 B*=STRING*<4, 128) 

186 REM LAYOUT COURSE 

116 CLS 

128 PRINT8153, "BUG RACE"; :PRINT6269, 

"SILVERFISH D0NNS M i 
138 FOR 1-15616 TO 15679 POKE 1,143: NEXT I 
146 FOR 1=15744 TO 15887 POKE 1, 148: NEXT I 
158 FOR 1=15872 TO 15935 POKE 1, 148: NEXT I 
168 FOR 1=16668 TO 16863 POKE I, 188: NEXT I 
176 FOR 1-13 TO 31 :SET<126, I) :SET<127, I ) NEXT I 
188 Wl=8 : W2=8 : W3=6 
266 REM PRINT BUGS 
216 B1«328:B2=448:B3=576 

226 PRINT6B1, "1";A*> :PRINT8B2, "2"; A*j :PRINT8B3, "3"; A*; 
238 Bl-Bl+1 : B2-B2+1 : B3-B3+1 

248 PRINT6782, "0 N V U R M A R K" FOR 1-1 TO 256: NEXT I 
256 PRINT6846, "G E T S E TVFOR 1*1 TO RND<258)*100:NEXT I 
266 PRINT8918, "G 0000000 ! " 
386 REM START RACE 
316 RANDOM 
326 T-8 

338 I-RND<3):T-T+1 
348 ON I GOTO 466,588,680 
466 REM MOVE BUG 1 
418 PRINTtBl'B*; 
428 Bl-Bl+1 
438 PRINT6B1, A*> 
446 IF Bl-379 THEN 768 
458 GOTO 336 
566 REM MOVE BUG 2 
518 PRINT6B2, B*> 
528 B2-B2+1 
536 PRINT8B2, A*; 
546 IF B2-567 THEN 786 
558 GOTO 338 
686 REM MOVE BUG 3 
618 PRINT6B3, B*; 
628 B3-B3+1 
638 PRINT6B3,A*; 
646 IF B3-635 THEN 760 
650 GOTO 336 
786 REM WINNER 

718 PRINT6782, "THE WINNER IS BUG # M 
738 GOSUB 888:PRINT8846, M W I 
746 T=T/26:PRINT»9i8, "A N D 
758 FOR 1-1 TO 2888: NEXT I 
766 REM RETURN TO STARTING LINE 
776 FOR I=B1 TO 322 STEP -1 

FOR I-B2 TO 458 STEP -1 

FOR I=B3 TO 578 STEP -1 
788 PR I NT9782, CHR* < 36 ) : PR I NT6918, CHR* < 38 ) 
798 GOTO 216 

360 REM FIND WINNING LEAD 
818 ON I GOTO 828,836/848 
828 Ll=587-B2 : L2=635-B3 : W1=W1+1 : GOTO 856 
836 L1-379-B1 : L2-635-B3 : W2-W2+1 : GOTO 856 



NNER IS BUG t " 
TH A LEAD OF 
A TIME OF ";T; 



GOSUB 908:NEXTI: 
GOSUB 360. NEXT I: 
GOSUB 986: NEXT 



L; " MM" 
S E Ci 



I 



:??-Se '.i-SERS GROUP - NEWSLETTER - 
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1", " 2", " 3' 
Ul. W2, W3i 



848 L1=379-B1 : L2=58?-B2 : W3=W3+1 

858 IF L1M.2 THEN L=L2 ELSE L=L1 

868 L-L*3 

878 PRINT88, "BUG NUMBER 

888 PRINT064, "TOTAL WINS 

898 RETURN 

988 REM MOVE BUGS LEFT 

918 PR I NT* LB*; PRINT0I-1, A*; 

928 RETURN 

999 END 



A 88/* 220/*3 438/* 538/* 638/* 918/* 

B 98/* 418/* 518/* 610/* 918/* 

Bl 218 228 238/2 418 428/2 438 448 778 838 848 

B2 218 228 238/2 518 528/2 538 548 778 828 848 

B3 218 228 238/2 618 628/2 638 648 778 828 838 

I 138/3 148/3 158/3 168/3 178/4 248/2 258/2 338 348 

718 758/2 778/6 818 918/2 

L 738 858/2 868/2 

LI 828 838 848 858/2 

L2 828 838 848 858/2 

T 328 338/2 748/3 

Ml 188 828/2 888 

H2 188 838/2 888 

W3 188 848/2 888 



BUG NUMBER : 1 2 3 

TOTAL WINS : 2 2 3 

BUG RACE 
SILVERFISH DOWNS 

1 

2. '.'. ... 

2.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'. 

THE WINNER IS BUG • 2 
WITH A LEAD OF 3 MM 
AND A TIME OF 8. 25 SEC 



TRS-88 QUALITY SOFTWARE 



LEVEL I. AND LEVEL II 

•1 IDM-I CASSETTE DATA BASE $28 

•2 INV-I INVENTORV CONTROL $28 

•3. STOCK- I SECURITY INFO $18. 

#4 BANK- I CHECK BALANCE $18 

f5 FIMANCE-I STOCK-I * BANK-I $15 

DISKETTE. 

#12. MAIL-III MAILING LIST $35 

H4. MORD-III WORD PROCESSOR $35. 

•21 INV-I I I INVENTORV CONTROL $35 

•22. KEV-III KEV RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE, CASSETTER * DOCU. 



LEVEL II 

•11 WORD- I WORD PROCESSOR $25 

•15 MAIL- I NAME AND ADDRESS $25 

•16 SORT- I SORT UTILITY $18. 

•17. STAT-I STATISTICS $18. 

•18. KEV- I KEY-ACCESS $18 

•19 SALE-I SALE ANALYSIS $18 

•28 UTIL-I SORT- I * KEY- I $16 



MICRO ARCHITECT 
96 DOTHAN ST 
ARLINGTON, MR 82174 



18 REM MASTER PROGRAM CATALOG 

28 REM J. D. HEGSETH OCTOBER 1979 

38 REM FILENAME "CATALOG" 

188 REM INSTRUCTIONS AND INITIALIZATION 

118 CLS.CMD"R" 

128 PRINTTAB<19>; "MASTER CATALOG" 

138 PRINT PRINT: PRINT 

"DISK MENUS MAV BE DISPLAYED INDIVIDUALLY OR SEQUENTIALLY. 
148 PRINT :PRINT"DO YOU WANT HARD COPY <V OR N) ? "; 
158 X*=1NKEV* 

168 X*=INKEY*:IF X*="N" THEN LP-8:G0T0 288 
178 IF X*O u V" THEN 168 
188 IF PEEK < 14312 »127 THEN PRINTLINE PRINTER NOT READY!": 

GOTO 148 " 
198 LP-1 
288 PRINT X* 

218 PRINT :PRINT"NEXT DISK: > N <" 
228 PRINT :PRINT"SPECIFIC DISK: > S <" 
238 PRINT :PRINTDISK (N OR S) ? "; 
248 X**INKEV* 

258 X*»INKEY*:IF X*»"N" THEN 328 
268 IF X*0"S" THEN 258 
278 CLS 

288 DK«0PRINT"WHICH DISK « "i INPUT DK 
290 IF DK>188 AND DK<123 THEN 328 
388 IF DK=998 OR DK-999 THEN 328 
318 PRINT: PRINT 

"INVALID DISK 

GOTO 288 
320 REM DATA READOUT 
330 RESTORE 
340 IF D»999 THEN 630 
350 READ D,P,F:REM D= DISK #, 
360 IF DK«8 OR DK»D THEN 388 
378 FOR J»l TO P:READ A*: NEXT J: GOTO 348 
388 aS : PRINT 

"FILE DIRECTORY FOR DISK •"; D, "FREE 
3*8 IF LP»8 THEN 418 
488 LPRINT STRING*<3, 138) :LPRINT"FILE DIRECTORY FOR DISK «"; D, 

"FREE = ";F; "GRANS" LPRINT CHR*<138> 
418 FOR J=l TO PREAD A* 
428 PRINT J; A*; 

428 IF INT<J/2>*20J THEN PRINTTAB<32>;ELSE PRINT 
448 IF LP=8 THEN 478 
458 LPRINT J; A*; 

468 IF INT<J/2)*2<>J THEN LPRINTTAB<32)> ELSE LPRINT CHR*<138> 
478 NEXT J 

488 PRINT: IF 1NTU/2)*2=J THEN PRINT 

485 IF LP=1 THEN IF INT<J/2>*2=J THEN LPRINT CHR*<138) 
498 PRINT 

"NEXT > N <, SPECIFIC > S C RERUN CATALOG > R C PROGRAM > P <' 
588 X**INKEV* 
518 X*=INKEY* 

520 IF X*="N" THEN DK=8:G0T0 348 
538 IF X*="S" THEN 278 
548 IF X*="R" THEN RUN 
558 IF X*<>"P" THEN 518 

560 REM SELECT A PROGRAM FROM DISPLAYED MENU 
578 CLS: PR I NT "TO RUN A SELECTED PROGRAM:" 



'PS-S* USERS GROUP - 'IEWS'lETTO? - 
0CT06EP 19?9. VOLIK 2, NUMBER 18 - c hGc £ 



RE-ENTER 



P« « OF PROGRAMS, F= FREE SPACE 



=";F; "GRANS" : PR I NT 



589 PRINT:PRINT"1 INSERT DISK #";D;"INTO DRIVE # > 1 <" 

599 PRINT M 2 PRESS > M < WHEN READS'" 

699 X*-INKEY* 

619 X*-INKEY*:IF X$0"M" THEN 619 

629 L0AD"MENU:1",R 

639 CLS: PR I NT "THAT WHS THE LAST DISK IN THE CATALOG" 

649 PR I NT: PR I NT "PRESS > ENTER < TO RERUN THE CATALOG" 

659 INPUT AN$ 

660 RUN 
679 END 

1G0Q REM DATA i -DISK*, # FGMS, FREE, PGM NAMES) 

1919 DATA191,9, 2, INVENTORY TILE. SPACE WAR, GLOBAL BEARINGS, 

PILLBOX 2, QSL GRAPHICS, STAR TREK, SPACE TREK II, 

TROLLS GOLD, MUSIC 
1029 DATA192, 16, 1, BLACK JACK, BACKGAMMON, ACEY DEUCY, MATCH 23, 

KING, HAMURABLTIC TAC TOE, RANDOM WORD, L2 RANDOM WORD, 

SEARCH, LUNAR LANDER, SHOOTING STARS, MINI TREK, MIND READER, 

ROACH RACE, ENTRAPMENT 
1939 DATA193, 7, 2, GRAPHIC STAR TREK, STAR TREK 3, STAR TREK 1, 

JUMBLE 2, SEARCH 1, STAR TREK 2, UNSCRAMBLE 
1049 DATA194, 18, 1, DOOMSDAY, JUMBLE 1, MEMORY LETTER TEST, 

STINGRAY, RUSSIAN ROULETTE, WHEEL OF FORTUNE, 

TOWERS OF BABEL, DECISION, MEMORY NUMBER TEST, FLIPPER, 

STARS, ODD ONE, SPVSHIP, HORSE, SCISSORS, CRAPS, STAR BLAZER, 

TIGER SHARK 
1959 DATA195, 21, 1, FRONT COVER, WEIRD, RAT RACE, RANDOM AD, 

FIRESIDE, LEFT RIGHT, BLOCKS, HERRING, LAUNCH, BLINKER, SNOOPY, 

SNOW, STEP AD 1, STEP AD 2, BASE CONVERSION DRILL, SPEEDY, 

LIFE, COUNT, ROAD RACE, FIFTEEN, SANTA PARAVIA 
1969 DATA196, 15, 4, BARTENDER, CALORY COUNTER, METRIC CONVERSION, 

UNIVERSAL CALENDAR, BASE CONVERSION, CALCULATOR, 

VACATION LIST, TELECODE, MESSAGE CENTER, NIGHT CHECK LIST, 

EXPENSE ACCOUNT, BABY SITTER, DRUNKOMETER, REMEMBER, MILEAGE 
1979 DATA197, 5, 2, FINANCE PACKAGE 1, FINANCE PACKAGE 2, 

FINANCE PACKAGE 3, GENERAL KNOWLEDGE DRILL, 

TOUCH TYPING DRILL 
1989 DATA198, 2, 26, GENERAL PURPOSE FILE 

PROGRAM AND DATA FILES, MAIL LIST 
1999 DATA199, 3, 29, TEXT-88 TEXT EDITOR, 

COHPUTRONICS WORD PROCESSOR, EDITOR AND SCREEN PRINTER 
1199 DAT A119, 7, 1, ERODE, AROUND THE HORN, CODE PRACTICE, 

, CODE PRAC. (EXPANDED), CR I BBAGE, ROBOT CHASE, SAFARI 
1119 DATA111, 19, 3, SPEED GRAPHICS, RANDOM GRAPHICS, 

TRS-89 DISPLAY 1, TRS-89 DISPLAY 2, TRS-88 DISPLAY 3, 

BIG GRAPHICS, BUG DRAW, BUG RACE, BIG GRAPHICS (CONDENSED), 

STRING GRAPHIC ROUTINE, GRAPHIC ROUTINES (ML), GRAPHIC, 

GRAPHIC 2, SKETCH 
1115 DATAHEINRICH LIFE, SOUND EFFECT ROUTINE, SOUND DEMO PROGRAM, 

RANDOM ART, MAZE 
1129 DATA112, 5, 1, DOG STAR, AWARI, NO TRUMP BRIDGE, DRAW POKER, 

STUD POKER 
1139 DATAH3, 4, 19, LUNAR LANDER, KEYBOARD 89, INVASION FORCE, 

CHECKERS 89 
1149 DATA114, 7, 2, SPACE TREK 4, SUPER SUB, RAMROM PATROL, 

KLINGON CAPTURE, TIE FIGHTER, BALLOON RACE, COMPUTER NIM 
1159 DATA115, 4, 8, TREASURE HUNT, PIRATES COVE, VOODOO CASTLE, 

THE COUNT 
1169 DATA116, 11, 2, BASE CONJVERS IONS, DUPE QSO FILE, GYPSY, 

UNJUMBLE, XMAS LIST, ADDITION TEST, SUBTRACTION TEST, 

MULTIPLY/DIVIDE TEST, FRACTION DECIMAL TEST, 



QUEST ADVENTURE, POPUL ATI ON SIMULATION 
1179 DATA117, 8, 15, MISSION IMPOSSIBLE, TINY PILOT, TAPED I SK, DCV, 

EDITOR/ASSEMBLER, RENUMBER 16K, RENUMBER 32K, TBUG 
1189 DATA118, 8, 1, TANK RUN, RACE CAR, YAHTZEE, SHOOTING GALLERY, 

TREASURE DUNGEON, BR I DGE ENGINEER, BATTLESHIP, ROBOT HUNT 
1199 DATA119, 5, 1, WESTWARD 1847, NUCLEAR MELTDOWN, ISOLATE, 

EVEREST EXPEDITION, GREED 2 
1299 DATA128, 6, 1, SPACE TARGET, GRAPHIC TREK 2999, INVASION HORG, 

SAUCERS, STAR WARS, LUNAR LANDER 
1210 DATA121, 6,1, EGYPTIAN PHAROAH, TANGLE GRAPH, WORD SCRAMBLE, 

PSYCHIC FORTUNE, CHECKERS, DRAW POKER 
1220 DATA122, 1, 28, OIL BARON 
9989 DATA998, 6, 32, MASTER CATALOG, TAPED I SK/CMD, DCV/CMD, 

BASIC DIRECTORY, INKEV ROUTINE, 49 CHAR LLISTER 
9999 DATA999, 13, 5, MASTER CATALOG, TEST1/CMD, TEST2/BAS, 

GETTAPE/BAS, GETDISK/BAS, TAPEDISK/CMD, DCV/CMD, DISKDUMP/BAS, 

DUMPDISK/BAS, DASSEMLP/BAS, T I MEDATE/TXT, HEXPOKE/BAS, 

REFSERCH/TXT 

A 379/* 419/* 429/* 459/* 

AN 659/* 

D 349 359 369 388 499 589 

DK 289/2 299/2 399/2 369/2 529 

F 359 389 499 

J 379/2 419 429 439/2 459 469/2 479 489/2 485/2 

LP 169 199 399 449 485 

P 359 379 419 

R 629 

X 159/* 169/*2 179/* 299/* 249/* 259/*2 269/* 599/* 
519/* 529/* 539/* 549/* 559/* 699/* 619/*2 

MASTER CATALOG 



DISK MENUS MAY BE DISPLAYED INDIVIDUALLY OR SEQUENTIALLY. 

DO YOU WANT HARD COPY (V OR N) ? N 

NEXT DISK: > N < 

SPECIFIC DISK: > S < 

DISK (N OR S) ? 

FILE DIRECTORY FOR DISK t 191 FREE « 3 GRANS 



1 INVENTORY FILE 
3 GLOBAL BEARINGS 
5 QSL GRAPHICS 
7 SPACE TREK II 
9 MUSIC 



2 SPACE WAR 
4 PILLBOX 2 
6 STAR TREK 
8 TROLLS GOLD 



NEXT > N O SPECIFIC > S <, RERUN CATALOG > R <, PROGRAM > P < 



TO RUN A SELECTED PROGRAM: 



INSERT DISK # 101 INTO DRIVE • > 1 < 
PRESS > M < WHEN READY 



T P-5-«0 'JSEPS GROUP - •©6LETTBI - 

OC '06EP iS?9 WUJHI I ■».*&? 19 - PflGE 54 



TRS-88' DUST COVERS 

* PROTECT VOUR VALUABLE INVESTMENT FROM DUST AND DIRT BUILD UP 

* SAVE * ON MAINTENANCE, DOWNTIME AND THEY LOOK GREAT 

* IMPROVE SYSTEM RELIABILITY AND HELP PREVENT KEY BOUNCE 

* MADE FROM BLACK CLOTH-BACKED VINYL NOT SEE-THROUGH PLASTIC 

* COVERS HAVE REINFORCED CUT-OUTS FOR PLUGS AND CABLES 

TAPE $3. 99 

KEYBOARD $4. 99 COMPUTER PRODUCTS 

VIDEO $7. 99 BOX 1475 

MI NOT, N. D. 58701 

♦16 97 
COMPLETE SET OF THREE COVERS 
LONG VIDEO <EXPAN INTER. ) ADD $2. 88 
ALL PRICES POSTPAID 



*** $14. 95 *** 



N. D. RESIDENTS ADD 2V. TAX 
'TRS-88 IS A TRADEMARK OF TANDY CORP. AND RADIO SHACK 



2582 4TH ST N. W. »7 
MI NOT, N. D. 58781 
OCT 23, 1979 



DEAR MR. LLOYD, 

I RECENTLY HAD THE FREE VOLUME SENSITIVITY MODIFICATION 
DONE TO MY UNIT AND WAS CONCERNED WHEN IT CAME BACK WITH A 
$14 BILL. AFTER READING THE WRITE UP ON THE BILL I FOUND 
THAT ALL THEY HAD DONE WAS TO CLEAN THE INTERIOR. AFTER 
BEING BITTEN ONCE, I SAID NEVER AGAIN AND PROCEEDED TO 
DESIGN AND MAKE DUST COVERS FOR ALL 3 PIECES OF MY SYSTEM. 
AFTER MAKING A FEW SETS OF COVERS FOR FRIENDS IN MY LOCAL AREA 
I WONDERED HOW MANY OTHER COMPUTER OWNERS HAVE OR WILL HAVE 
TO PAY THIS CLEANING FEE. I AM NOW OFFERING THESE COVERS TO 
ONE AND ALL, AT A MODEST PRICE. THE AD APPEARS ELSEWHERE IN 
THIS ISSUE. INCIDENTLY, THE SENSITIVITY MODIFICATION WORKS FINE. 

SINCERELY, 
WILLIAM J. CAREY 



COMPREHENSIVE RADIOLOGY BILLING PGM FOR TRS-88 

HANDLES UNLIMITED NO OF ACCOUNTS 

SOFTWARE OPERATES WITH 48K MEM 2 DRIVES LINE PRINTER 
AGES, CVLCLE BILLS, ZIP CODE SORTS, PRINTS INS FORMS 
SEARCH FILES BY NAME OR AC* 

ITEMIZED STATEMENT, INS FORM, CORRECT OR ADD TO ACCOUNT ANYTIME 

ALPHA SORT PRINTOUT FOR CROSSFILE 

SIMPLE 3 LETTER PROCEEDURE ENTRY <IVP, UGI, ETC) 

BILLING ANAYSIS ON SCREEN OR PRINTOUT 

CAN BE ADAPTED TO OTHER SPECIALTIES 

PROGRAM IN USE ONE YEAR AND FULLY DEBUGGED 

PROGRAM FOR $595. 88' 

P. J. PALMISANO MD <214) 592-2133) 



*4 November 1979 



Mr. R. G. Lloyd 
TRS-80 Users Group 
755^4 Southgate Rd. 
Fayetteville, N.C. 28301* 



Dear Mr. Lloyd: 

Enclosed are copies of two programs for line fitting by 
linear regression. The first of these is in Level I BASIC and 
will run in I6K as written, or by reducing the number of data pairs 
to a more reasonable level can run in 8K. 'The program also includes 
a plotting routine for the CRT but since a hard copy can only be 
obtained with a screen printer this is more a curiosity than a genuine 
advantage. 

The second program is an adaptation of the first to Level II 
or Disk BASIC and includes data enter or save on disk rather than tape 
as well as a line printer plotting routine. Both programs have a 
correction routine for faulty data entry. 

In addition I have a number of other statistical programs 
including second order parabolic regression, third order parabolic 
regression, multiple linear regression for 2 X values, multiple linear 
regression for 3 X values, randomized block analysis of variance, 
split plot analysis of variance, hyperbolic regression (for fitting 
enzyme kinetic data) and a generalized non-linear least squares fit 
using the Marquardt algorithm adaptable to fitting any equation with 
up to 12 parameters. All of the above are in Level II and a few are 
also available In Level I. 

If any readers are interested I can supply any of the above 
on casette with a program listing, documentation and references for 
$10 each, post paid. A diskette with all of the listed programs can 
be supplied for $50. A number of specialized programs for biochemical 
data reduction and analysis are also available and I would be glad to 
correspond with anyone concerning them. 



5M5 Brittany Avenue 
Riverside, CA 92506 



Sincejjelyyours, 
Randolph T. Wedding // 



TP5-88 'JSEPS GROUP - NEHSLETTER - 
OCTOBER 1?79- VOLUME 2, NUMBER 18 - PflGE 95 



16 REM LEVEL I LINEAR REGRESSION WITH SCREEN PLOT 

29 REN REQUIRES 16 K FOR 196 X, V PAIRS, CRN BE REDUCED TO 8 K 

36 REM FOR SMALLER DATA SETS INCLUDES DATA LOAD AND SAVE ON 

46 REM CASETTE AND DATA CORRECTION ROUTINE 

56 ' RANDOLPH T. WEDDING 

66 ' 5445 BRITTANV AVE. 

76 ' RIVERSIDE, CA 92566 

86 CLEAR 166 

96 DIM A(388) 

166 CLS 

116 PRINT TAB(25) "LINEAR REGRESSION" 

128 S"6:T»8:U-e:V=0:H»e 

138 FOR I«1T025:READ R< 1*298) NEXT I 

146 INPUT "ENTER EXPERIMENT, AND DATE"; A*, 8* 

156 INPUT "NUMBER OF DATA PAIRS"; N 

166 INPUT "DATA FROM TAPE, N0=8, YES • 1 TAPE READY", Z 

176 IF Z«8 THEN 286 

186 FOR I-lT0N:INPUT#-i,A<I),A(ie8+I>:NEXT I 

196 GOTO 238 

288 FOR I*1T0N:PRINT "VALUE OF X, A Y<"I">" 

216 INPUT A<I),A<166+I) 

228 NEXT I 

238 INPUT "ANY ERRORS <i*YES,2*»>"; V: IF V-2 THEN 268 

248 INPUT "DATA PAIR NUMBER WITH ERROR"; I 

258 PRINT "Y<";I;"> X<M; ")": INPUT A(I), A<188*I>: GOTO 236 

268 INPUT "RECORD DATA ON TAPE 6=N0, i=YES, RECORDER READY"; Z 

278 IF Z»8 THEN 298 

288 FOR I«iT0N:PRINTt-LA<<I),A<188*I>:NEXT I 

298 FOR WT0N:S»S*A<I>:T»T*A(I+198).U=U+(A(I)*A<I)> 

388 V=V+<fl< I +180>*fl( 1+188) ):W=W+(A( I >*A( 1+186) ): NEXT I 

318 E-U-<S*SVN:F»V-<T*TVN:G=U-(S*T)/N 

328 JWJ/E:K-T/H:L«S/N:M^<-<H<4.) 

338 0-H*G:P-F-O:Q»0AP/<N-2)>:R»O/'F 

348 X«R:GOSUB 966 ,R=V 

356 B-PAN-2) : B*SQR<B> 

368 X«*:GOSUB 968 :L=V:C=B/L 

376 S«P/<N-2):S»S/E:X»S:GOSUB 968 :S*Y 

388 Z«<PAN-2»/B 

398 D-H/S 

498 CLS 

419 PRINT TAB<29) "RESULTS OF LINEAR REGRESSION" 

428 PRINT 

438 PRINT A$;TAB<58> B* 

446 PRINT 

458 PRINT "INTERCEPT «",M, "SLOPE =",H 

468 PRINT 

476 PRINT "F VALUE FOR REGRESSION »";Q 

486 PRINT "CORRELATION COEFFICIENT, R » "; R;TAB(46) "FOR N * ";N 

496 PRINT "RESIDUAL STANDARD DEVIATION *"; B 

588 PRINT "STD. ERROR OF RANDOM SAMPLE » ";C 

518 PRINT "STD. ERR OF SLOPE «";S; ", OF INTERCEPT = "; Z 

526 PRINT "T VALUE FOR SLOPE =",D, ", FOR INTERCEPT = ",M/Z 

536 I*(268+N-2> 

546 IM.88*C*A<I)/(T/N) 

558 PRINT "T REQUIRED AT 5X ="; fid) 



566 PRINT "SAMPLING ERROR Y. ="; U 

570 INPUT "PRINT DATA = 1, PLOT = 2";A:ON A GOTO 886 ,630 

586 DATA 12. 766, 4. 303, 3. 182, 2. 776, 2. 571 

598 DATA 2. 447, 2 365, 2. 386, 2 262, 2. 228 

666 DRTA2. 261, 2. 179. 2. 166, 2. 145. 2. 131 

616 DATA 2 128, 2 110, 2. 181, 2 893, 2 086 

626 DATA 2 888, 2 874, 2 669, 2. 664, 2 888 

638 INPUT "ENTER X-MAX,X-MIN, X-SPACE";A, B, C 

646 IWUT "ENTER Y-MAX, V-MIN, V-5PACE"; D,E,F 

656 G»<iee/A-B)*C:K"(46/D-E)*F 

668 CLS: PRINT A*;TAB(50) Bf 

676 FOR 1*28 TO 128:SET(I,47) :SET <I,7):NEXT I 

688 FOR I«7 TO 47:SET<28,I):SET (126, I):MEXT I 

696 FOR I«28+G TO 126:SET(I, 46>:I«I*G:NEXT I 

786 FOR I*7*K TO 47:SET (21, 1): I=I+K:«XT I 

716 J»188:FOR I=iT0N:A(I>«(<A(IV(A-B)>*i8B)+26:NEXT I 

726 FOR J=i8i TO 168*N : A<J)=( <A<J)/(D-E> )*48) : NEXT J 

738 FOR J-181 TO 188+N:A(J)«47-A<J>:NEXT J 

746 FOR I«1T0N:SET (A( I ), A< 1*186) ): NEXT I 

758 GOSUB 838 

768 INPUT "2";Z:IF Z»2 THEN 776 

778 N"47-((46/ , D-E>*H> 

786 FOR I»l TO 188:L*26*I 

798 0»<I*. 4)*<H*<A/D)) 

888 SET (U M-O) : IF H-KX8 THEN 838 

818 NEXT I 

828 END 

838 Q3*47-<<M/'<D-E»*48> 

848 RESET (26,03) 

856 Q4=47-((N+(H*A)V<D-E)*48) 

868 RESET (126,04) 

878 RETURN 

888 Q»1:R«13:IF N<13 THEN R-N 

898 CLS:PRINT A*;TAB<58) B$ 

988 PRINT "N0»", "X", "Y", "Y(CALO" 

918 FOR I=Q TO R: PRINT I, A<I), A( 1*196), A<I)*H+H 

926 NEXT I 

938 INPUT "MORE, 1=YES, 2»N0";F:0N F GOTO 948 ,578 

948 Q«R*i:R"Q+12:IF R>N THEN R*N : CLS : G0T0918 

956 STOP 

968 IF X«8 THEN Y » 8:RETURN 

978 IF X>6 THEN 996 

986 PRINT "ROOT OF NEGATIVE NUMBER": STOP 

996 Y=X*. 5:Z=8 

1886 W*<X/Y-Y>*. 5 

1618 IF (H-8) ♦ (H-Z) THEN RETURN 

1826 Y*Y*W: Z«W: GOTO 1886 



T »?-'?9 USERS GROUP - NEWSLETTER - 
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19 REM LINEAR REGRESSION WITH SCREEN OR LINE PRINTER PLOT 

28 REM WILL HANDLE 48 JOV PAIRS IN 16K, BUT IS MORE 

38 REM FLEXIBLE IN 32K. INCLUDES DATA LOftD AND SAVE 

48 REM ON DISK AND DflTfl CORRECTION ROUTINE PLOT ON 

58 REM LINE PRINTER IS ONLV APPROXIMATE - X aXIS IS 

68 REM ON LEFT EDGE OF PRINTOUT, V AXIS ACROSS. 

78 ' RANDOLPH T. WEDDING 

88 ' 5445 BRITTANY AVE 

98 ' RIVERSIDE, CA 92566 

188 CLEAR 488 

118 DIM X(48), YK48), fl(25), XK48), Y2(40), Y3<48> 

128 as 

138 PRINT TAB<25) "LINEAR REGRESSION" 

148 S=8:T=8:U*8:V=e:W=e 

158 FOR I*1T025:READ A<I):NEXT I 

168 INPUT "ENTER EXPERIMENT, AND DATE"; ft*, B* 

178 INPUT "NUMBER OF DATA PAIRS"; N 

188 INPUT "ENTER DATA ID"; 2* 

198 INPUT "DATA FROM DISK, N0=8, YES = 1",26 

288 IF Z6*8 THEN 278 

218 OPEN "IM,Z* 

228 FOR I»iTON 

238 INPUTil,X(I),VKI) 

248 NEXT I 

258 CLOSE 1 

268 GOTO 488 

278 FOR I=1T0N:PRINT "VALUE OF X, & Y("I">"; 

288 INPUT X<D,Yi<I> 

298 NEXT I 

388 INPUT "ANY ERRORS (1=YES, 2=NO>"; V2: IF V2=2 THEN 228 

318 INPUT "DATA PAIR NUMBER WITH ERROR", I 

328 PRINT "Y<M;"> X<";I; ")". INPUT A<I)-A<188+I) GOTO 288 

338 INPUT "RECORD DATA ON DISK 8=N0, 1=YES"; 27 

348 IF Z7*8 THEN 488 

358 OPEN "0", L Z« 

368 FOR I=1T0N 

378 PRINTti,Xa),YKI) 

388 NEXT I 

398 CLOSE 1 

488 FOR I=lT0N:S=S+X<I):T=T+VKI):U»U*X<I)r2 

418 V*V+VKI)[2:U*U ♦<X<I)*Y1<D) :NEXT I 

428 E*U-(S*S)/N:F=V-<T*T)/N:G=W-(S«T)/N 

438 H=G/E:K»T/N:L=S^:M=K-<H*L) 

448 0=H*G:P=F-0:Q=0/<PAN-2>> R=0/F 

458 R=SQR(R) 

468 B*PAN-2):B*SQR<B) 

478 L«SQR<N):C=B/L 

488 S-PAM-2) : S=S/E : S=SQR(S) 

498 Sl>CPAN-2»/B 

588 D=H/S 

518 INPUT"READY FOR PRINTOUT"; Z4 

528 LPRINT TAB<28) "RESULTS OF LINEAR REGRESSION" 

538 LPRINT" " 

548 LPRINT A*, TAB(58) B* 

558 LPRINT" " 



568 LPRINT "INTERCEPT = ",M, "SLOPE *", H 

579 LPRINT" " 

580 LPRINT "F YALUE FOR REGRESSION =",Q, " 

598 LPRINT "CORRELATION COEFFICIENT, R = "; R; TAB(48) "FOR N = ", N 
688 LPRINT "RESIDUAL STANDARD DEVIATION =" 
610 LPRINT "STD ERROR OF RANDOM SAMPLE = 
628 LPRINT "STD. ERR. OF SLOPE =";S> 
638 LPRINT "T VALUE FOR SLOPE =",D; ". 
640 I=N-2 

658 U=108*C+A(I)AT/N) 

660 LPRINT "T REQUIRED AT 32 ="; A(N-l) 

678 LPRINT "SAMPLING ERROR V. =", U 

688 LPRINT " " 

698 INPUT "PRINT OUT DATA * 1, PLOT ON SCREEN - 2, PLOT ON PRINTER = 3", A9 ~> 



DATA ID « ",Z$ 

R; TAB(48) "FOR N 
i B 
";C 

\ OF INTERCEPT = ";S1 
FOR INTERCEPT = \ M/Sl 



788 DATA 12 786, 4. 383, 3. 182, 2 776, 2. 571 

718 DATA 2. 447, 2. 365, 2. 286, 2. 262. 2. 228 

728 DATA2. 281, 2. 179, 2. 168, 2. 145, 2. 131 

738 DATA 2. 128, 2 118, 2. 181, 2. 893, 2. 886 

748 DATA 2. 888, 2. 874, 2. 869, 2. 864, 2. 888 

758 INPUT "ENTER X-MAX, X-MIN,X-SPACE"; A,B, C 

768 INPUT "ENTER Y-MAX, Y-MIN, Y-SPACE"; D, E, F 

778 G=<iee/A-B)*C:K=(48/D-E>*F 

788 as. PRINT A*;TAB(58) B* 

798 FOR 1*28 TO 128:SET<I,47) :SET (1,7) NEXT I 

888 FOR 1=7 TO 47SET(20, I) SET (128, I). NEXT I 

810 FOR I=28+G TO 128SET(I, 46) : I = I+G:NEXT I 

828 FOR I=7+K TO 47. SET (21, I) . I=I+K:NEXT I 

328 FOR I=1TON.X1(I)=((X(I)/(A-B)>+108)+28.NEXT I 

348 FOR I=1T0N.Y2(I)=(Y1(I)AD-E))*48 

858 Y2(I)=47-Y2(I):NEXT I 

868 FOR I=1T0N:SET (X1(I), Y2(I>) NEXT I 

878 GOSUB 958 

880 INPUT "2";Z:IF Z=2 THEN 898 

898 M=47-((48/D-E)*M) 

988 FOR 1=1 TO 188:L=28-fI 

910 0=(I*. 4)*(H*(A/D)) 

920 SET (L,M-0):IF M-CK8 THEN 958 

928 NEXT I 

948 END 

958 Q2^47-((MAD-E))*48) 

968 RESET (20,03) 

970 Q4=47-(<M*(H*A)V(D-E)*40) 

988 RESET (128, 04) 

990 RETURN 

1880 LPRINT "NO. ", "X". "Y", "Y(CALO" 

1010 B1=B*A(N-1) 

1828 FOR I=1T0N 

1020 B2^V1(I)-(X(I)*H+M) B3=SQR(B2*B2) 

1040 IF B3>B1 THEN 1868 

1850 LPRINT I,X(I),Y1(I),X(I)*H*M.G0T0 1070 

1066 LPRINT I.>:(I>,Y1(I>,X(I)*H+M;TAB(50)"*" 

1070 NEXT I 

1880 LPRINT "SIGMA X T' = ",B1 

1099 INPUT-PLOT ON SCREEN OR PRINTER, 1 OR 2 M , 25 ON 25 GOTO 750 

1100 REM PLOTTING ROUTINE FOR LINE PRINTEP 



ON A9 GOTO 1888 , 758 , 1188 



.1100 



•c-y-sfl i^ps GPWF - ne^t"?? - 
0C T O6Ef 19"? l\iPe 2- 'I'HKP 10 - FfC-E 



1118 INPUT-ENTER SYMBOL FOR POINTS"; 0$ 

1128 INPUT'ENTER LABELS FOR X AND V AXES", S*, T* 

1139 INPUT "ENTER X-MRX, X-MN"-ftLBl 

1148 Ci«fll-Bl 

U58 INPUT'ENTER Y-MAX, Y-MN"; Dl, El 

1168 Fi-M-El 

1178 FOR I«1T0N 

1188 X1<I)»<X(I>/C1)*38:Y2(I) = (Y1(I).-T'1)*90 NEXT I 

1198 FOR I-1T038 Y3<I) = (I*<Cl.-38)+H+M)/Fl*98:NEXT I 

1288 LPRINT" ■ 

1218 LPRINT TAB<38> "(". EIj "TO", DL " - ",Tt;">" 

1228 LPRINT STRING»<3, " "); STRING*<93, "-">; 

1238 LPRINT CHR»<18> 

1248 Ll-i 

1258 FOR K«1T038 

1268 IF K-INT<X1<L1)> THEN 1288 

1278 LPRINT STRING*<3, • "); "I"; STRING* Y3<K>, " ■);"*"; STRING*<93-Y3(K), " ">; "IVGOTO 1328 

1288 IF Y30O<Y2<Li> THEN 1388 

1298 LPRINT X<Li>; STRING*<Y2<L1>, " ">, W;STRING*<Y30O-Y2<Ll>, " '); 

"*•; STRIN0«93-Y3<K>, " ">; "I":G0T01318 
1388 LPRINT X<Li>; STRING* <Y30O» " ");"»"; STRING*<Y2<LD-Y3<K>, " ");> 
1318 LKM Q*; STRIN6$<92-Y2<L1), " ">; "I" 

1328 NEXT K 

1338 LPRINT STRINB*<3, ■ ">;STRING*<93, "-">; 
1348 LPRINT" ■ 
1358 LPRINT "<";BL "TO'iflL " - ";S*;">" 



Dear Mr. Lloyd, 

I would like to inform the readers of an error in 
■y calendar program published in the July issue (Pg.69) 
The error is easily corrected by changing lines 1370 
and 1400 to the following: 

1370 IF Ml = AND M2 = THEN 1240 
1400 PRINT : GOTO 1240 (or LPRINT) 

My thanks to Mr. Fred W. Smith of Randleman, NC 
for bringing the error to my attention. 



Sincerely yours, 

2* ta 



lOWltZ 



Zvi Dershowi 
18 Harav Berlin St. 
Jerusalem, Israel 




OBGAX 



PRESENTS 



by, 



jaues Williams 



CAN BE PLAYED ON ANY TRS-80 4K LEVEL II AND UP 







jLJm 




Tremolo Tinbre 

Value Value 

3 5 

Enter Clear 

Loudness Tinbr© 



ANYONE WHO CAN PLAY "CHOPSTICKS" WILL ENJOY THIS NEW, CLEVER USE OF THE TRS-80 



REAL TIME TWO MANUAL KEYBOARD WITH 3 OCTAVES PLUS 

PLAY SINGLE NOTES OR CHORDS 

ASTERISK APPEARS ON DISPLAY AS KEY IS DEPRESSED 

CONTROL VOLUME (2 LEVELS) 

CONTROL TREMOLO (ALTERNATION BETWEEN NOTES 10 SPEEDS) 

CONTROL QUALITY OF SOUND (11 SELECTIONS) 

RECORD YOUR PERFORMANCE DIRECTLY OH TAPE 

REAL TIME LISTENING WITH AMPLIFIER OR TAPE MODIFICATION 



COMPLETE OPERATING AND HOOKUP INSTRUCTIONS INCLUDED WITH EACH ORGAN PROGRAM 



SEND $14.95 TO: MICROPUTE SOFTWARE, P.O. BOX 1943 
ROCKY MOUNT, N.C. 27801 

NORTH CAROLINA RESIDENTS PLEASE ADD 4X SALES TAX 
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1080 REM * CHECK * 

1010 REM * TRS-80 USERS GROUP - JAN 80 * 

1820 CLEAR 2000 DIM X8*<27), Xl*<12) 

1020 CLS: GOSUB 5470 

1040 PRINT: PRINT PRINT TAB<23) "CHECK WRITER" 

1050 PRINT INPUT " STARTING CHECK NUMBER ", CN 

1060 PRINT: INPUT "DATE <MM. DD. VV) <EX. 01.01 80) ";D*:PRINT 

1070 DATA ONE, TWO, THREE, FOUR, FIVE. SIX, SEVEN, EIGHT, NINE 

1088 DATA TEN, ELEVEN, TWELVE, THIRTEEN, FOURTEEN, FIFTEEN, SIXTEEN 

1090 DATA SEVENTEEN, EIGHTEEN, NINETEEN, TWENTY, THIRTY, FORT V 

1100 DATA FIFTV, S I XTV, SEVENTY, EIGHTY, NINETY 

1110 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC 

2800 OPEN "R",l, "BILL" GOSUB 6888 

2018 OPEN "R",2, X1*<VAL<LEFT*<D*, 2))) 

3800 PRINT "NAME OF PAYEE - "; F$ 

3810 I FVAL < AM* >=8THEN INPUT "AMOUNT OF CHECK ";AM$: 

GOSUB6088 : GOTO3030 
3020 PRINT "AMOUNT OF CHECK "; USING "**####.##"; VAL< AM*) 
3030 INPUT "WOULD YOU LIKE TO PRINT THIS CHECK "j PC* 
3848 PRINT: IF E0F<1> THEN RUN 
3858 IF PC*="N" GOSUB 6888 GOTO 3888 
3868 PRINT "PRINT CHECK #";CN 
4800 A=VAL<AM*):A9*=AM* 
4810 D1*VAL ( LEFT* < D*, 2 ) > 
4828 D2=VAL<MID*<D», 4, 2) ) 
4030 D3*=RIGHT*<D*, 2) 
4048 Sl=39 : S2=60 : S3=63 : S4=14 
4050 S8*= "##############" S9*=" **#### *«" 
5000 LPRINT TAB<S1)D2;X1*<D1); " 19"; D3*; 
5810 LPRINT TAB<S2)USINGS9*;VAL<AM*>, 
5828 LPRINT TAB<S3)USINGS8»; CN 
5838 LPRINTCHR*<138) 
5848 LPRINT TAB<S4)F* 
5058 LPRINTCHR*<138) 
5868 IF VAL<AM*X=8 THEN 5448 
5878 N1=INT<VAL<A1*>) 
5888 IF Nl>99 THEN 5448 
5898 IF Nl=8 THEN 5128 
5108 GOSUB 5358 
5110 LPRINT "THOUSAND »i 
5128 N1*INT<VAL<A2*)> 
5130 IF N1=0 THEN 5160 
5140 GOSUB 5350 
5150 LPRINT "HUNDRED "; 
5160 N1=INT<VAL<A3*>) 
5170 IF N1>0 THEN 5200 
5188 IF A>»1 THEN 5210 
5198 GOTO 5238 
5288 GOSUB 5358 
5218 PRINT: PRINT 
5228 LPRINT "DOLLARS "; 
5230 A1«VAL<A4*> 
5240 LPRINT "AND"; 
5250 LPRINT INT<A1); "CENTS" 
5260 PRINT 
5270 LPRINTCHR*<138) 
5280 LPRINT TAB<8> P8* 
5290 LPRINT TAB<8) PI* 
5388 LPRINT TAB<8) P2* 
5318 LPRINT TAB<3) "ACCOUNT NUMBER - "; P3* 



5320 FOR S7=l TO 11 : LPRINTCHR*<138> : NEXTS7 

5330 GOSUB 9000 

5348 CN=CN+1 : GOSUB 6008 GOTO 3986 

5359 IF NK21 THEN 5418 

5366 LPRINT X8*<<Nl-28>/10+20>. " ", 

5378 A3=N1-INT<N1/10)*10 

5388 IF A3=0 THEN 5436 

5390 LPRINT "- "; 

5408 N2=N1:N1=A3 

5410 LPRINT X0*(N1); " "; 

5420 IF A3=N1 THEN N1=N2 

5430 RETURN 

5440 PRINT , "***** VOID *****" 

5450 GOTO 5270 

5460 END 

5470 FOR 1=1 TO 27 

5480 READ X8*<I) 

5490 NEXT I 

5500 FOR 1=1 TO 12 

5510 READ XI* <I ) 

5520 NEXT I 

5530 RETURN 

6008 LR=LR+1 

6010 GOSUB 7000 

6020 PR=INT<<LR-l)/2)+l 

6030 GET 1, PR 

6040 F*=NA* : P0*=NA* 

6050 P1*=AD* 

6060 P2*=CT*+ST*+ZP* 

6078 P3*=AC* 

6880 MA=VAL<AM*) :MA*=STR*<MA) : AM*=MID*<MA*, 2) 

6090 IFMID*<RIGHT*<AM*, 2),1, 1)=". "THENAM*=AM*+"0" 

6108 IFINT<VAL<AM*))=VAL<AM*)THENAM*=AM*+". 00" 

6110 IFVAL<AM*)>999. 99THENM1=1 : M2=2:M3=3 : M4=2 : GOTO7030 

6120 IFVAL<AM*)>99 99THENM2=1 : M3=2 : M4=2 : C2-1 : C3-2 : GOTO7040 

6130 IFVAL<AM*)>9 99THENM3=1 :M4=2: C3=2: A1*="0" : A2*="0" : 

GOTO7050 
6140 IFVAL<AM*)>. 99THENM3=1 :M4=2 :C3=1 : A1*="0" : A2*="0" :GOTO7050 
6150 A=VAL< AM*) RETURN 
7000 SR=LR-2*INT<<LR-1V2)-1 
7010 FIELD 1,SR*127 AS H*, 7 AS DA*, 30 AS NA*, 35 AS AD*, 

20 AS CT*, 3 AS ST*, 5 AS ZP*, 20 AS AC*, 7 AS AM* 
7020 RETURN 

7030 A1*«LEFT*<AM*, Ml): REM THOUSAND 
7040 A2*=MID*<AM*, M2,C2):REM HUNDRED 
7050 A3*=MID*<AM*, M3, C3):REM DOLLARS 
7060 A4*=RIGHT*(AM*, M4):REM CENTS 
7070 RETURN 

8088 PR2=INT<<KEVX-1V4)+1 
8910 SRZ=KEYX-4*<PR/<-l) 
3828 FIELD 2, <<SR2-1)*58) AS HI*, 5 AS Ul*, 7 AS U2*, 8 AS U3*, 

38 AS U4* 
8838 GET 2, PRX 
3840 RETURN 
9888 KEY>:=KEV*+1 
9818 GOSUB 8888 

9828 CN*=STR*<CN):LSET U1*=MID*<CN*, 2) :LSET U2*=A9* 
9838 LSET U3*=D*:LSET U4*=NA* 
9848 PUT 2, PR* 
9858 RETURN 
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1 - WRITE A FILE" 

2 - READ A FILE" 



3 - EDIT A FILE" 

4 - SEARCH FOR A FILE' 
5 - END ";N 



", CHR*<93) 



1060 REM * BILLS * 

1010 REM * TRS-80 USERS GROUP - JAN 88 * 

1028 CLS: PRINT 

1030 X=0:N=0 

1040 CLEAR 1888 : CLS : CLOSE 

1050 S*»"BILL": PRINT PRINT 

2000 PRINT: PRINT "TYPE 

2010 PRINT: PRINT " 

2020 PRINT PRINT " 

2030 PRINT: PRINT " 

2040 PRINT: INPUT " 

2050 IF N=5 THEN CLOSE: END 

2060 OPEN"R", 1, S* 

2070 CLS 

2080 ON N GOSUB 3808 , 4818 , 5888 - 6888 

2090 GOTO 1038 

3800 GOSUB 9030 :LR=LR*1 

3010 GOSUB 9100 

3020 PRINT0593, "NEXT RECORD NUMBER "; CHR*<94); LR; S*; 

3030 PRINT00, "DATE - TVPE 'END' TO STOP " TAB (30); 

3040 LINEINPUTA*: J1=LEN< A*) :LSETDA*=A*: I FLEN < A*) >7THEN3828 

3858 IF A*="END" THEN RETURN 

3860 PRINT"NAME"TAB<38); LINEINPUTA* : J2«LEN<A*) . LSETNA$=A* : 

I FLEN ( A* ) >38Thiir '"868 
3878 PR I NT " ADD " TAB C 38); . LINEINPUTA* . J3=LEN<A*> : LSETFlD*=A* : 

I FLEN < A$ ) >35THEN3878 
3888 PRINT"CITY"TAB<38); : LINEINPUTA* : J4=LEN< A*) : LSETCT*=A*: 

I FLEN < A* »20THEN3888 
3898 PR I NT " STATE " TAB < 38); : LINEINPUTA* : J5=LEN<S*) :LSETST*=A*: 

I FLEN < A* »2THEN3090 
3100 PRINT M ZIP"TAB<38); : LINEINPUTA*: J6=LEN< A*) :LSETZP*= A* : 

I FLEN < A* ) >5THEN3100 
3110 PRINT"ACCOUNT #"TA8<38); LINEINPUTA*: J7=LEN<A*) :LSETAC*=A* 

I FLEN < A* ) >20THEN3118 
3120 PR I NT " AMOUNT" TAB < 38); : LINEINPUTA* :J8=LEN< A*) :LSETAM*=A* : 

I FLEN < A* )>7THEN3128 
3130 INPUT "IS THIS INFORMATION CORRECT (V/N) ";X* 
3140 IF X**"N" GOSUB 10080 GOTO 3820 
3150 IF X*="V" GOSUB 10000 GOSUB 11888 GOTO 4800 
3160 GOTO 3130 
4000 PUT 1, PR : CLS : GOTO 4028 
4010 PRINTM92, 

t "INPUT THE LR « FOR THE FILE VOU ARE WORKING ON "; : 

INPUTLR : GOSUB9100 : GOSUB11000 
4020 PRINT0328, 

INPUT LABLES <L> OR ROLODEX tR> OR END <E) "; : 

INPUT W* 
4030 IF VV*«"E" THEN 1030 
4040 IF W*»"R" THEN L=l:GOTO 4060 

4050 PRINT: INPUT " INPUT THE « OF LABLES VOU NEED "> L 
4060 G0SU8 9100 
4070 ZP=VAL(ZP*> 
4080 IF ZP=0 THEN RETURN 
4090 GOSUB 11000 
4100 FOR 1=1 TO L 

4110 IF S*="BILL" THEN GOSUB 14888: GOTO 4130 
4120 GOSUB 12000 
4130 NEXT I 
4140 IF N=l THEN CLS: GOTO 3888 



4158 GOTO 1838 

5888 CLSPRINT8192, 

"INPUT THE LR # FOR THE FILE VOU ARE WORKING ON "; INPUTLR 

5818 CLS GOSUB 5318 :X=1 

5020 PRINT05, 

"THERE ARE 8 LINES OF DATA WHICH WOULD VOU LIKE TO CHANGE' 
5030 PRINT "DATE", "NAME"- "ADD", "CITV* 
5848 PRINT "STATE", "ZIP", "ACC <#>", "AMOUNT" 
5858 PRINT "TVPE 'END' TO RETURN TO MENU "; LINEINPUT CH* 
5860 IF CH*="DATE" THEN 5160 

IF CH*="NAME" THEN 5170 

IF CH*="ADD" THEN 5180 

IF CH*-"CITV" THEN 5190 
5100 IF CH*=" STATE" THEN 5200 
5110 IF CH*="ZIP" THEN 5210 

IF CH*="ACC" THEN 5220 

IF CH*=" AMOUNT" THEN 5230 

IF CH*="END" THEN 1040 
5150 GOTO 5050 

5160 LINEINPUT "NEW DATE ";Al*:GOTO 5250 

";A2*:G0T0 5250 
•; A3*: GOTO 5250 
";A4*:G0T0 5250 
STATE ";A5*:G0T0 5250 
ZIP "; A6*:G0T0 5250 



5070 
5080 

5090 



5120 
5130 
5140 



'NEW DATE 
'NEW NAME 
'NEW ADD 
'NEW CITV 
'NEW 
'NEW 



•NEW ACCOUNT « ";A7*:G0T0 5250 
'NEW AMOUNT ";A8*:G0T0 5250 



5170 LINEINPUT 

5180 LINEINPUT 

5190 LINEINPUT 

5200 LINEINPUT 

5210 LINEINPUT 

5220 LINEINPUT 

5230 LINEINPUT 

5240 GOTO 5050 

5250 LSET DA*=A1*:LSET NA*=A2*:LSET AD*=A3*:LSET CT*=A4* 

5260 LSET ST*=A5*:LSET ZP*=A6*:LSET AC**A7*:LSET AM*=A8* 

5270 INPUT "ANV MORE CHANGES TO THIS FILE <V/N) "; VN* 

5280 CLS 

5290 IF VN*="V" GOSUB 11000: GOTO 5020 

5300 PUT 1, PR 

5310 GOSUB 9100 

5320 ZP=VAL<ZP*):IF ZP=0 THEN RETURN 

5330 GOSUB 11000 

5340 PRINT 

5350 A1*=DA* : A2*=NA* : A3*=AD* : A4*=CT* : A5*=ST* : A6*=ZP* : A7**AC* : A8*«AM* 

5360 IF X=l THEN 5380 

5370 RETURN 

5388 GOTO 4820 

6000 A=0 : B=0 : C=0 : D=0 : E=0 : H=0 

6010 LR=0:N=3 

6020 CLS 

6030 LR=LR+1 

6040 GOSUB 9100 

6050 ZP=VAL<ZP*) : IF ZP=0 THEN CLOSE: RETURN 

6060 GOTO 8818 

7000 CLS 

7010 GOSUB 11000 PRINT 

7020 PRINT "DO VOU NEED A HARD COPV <Y/N) " 

7030 PRINT " TO MAKE A CHANGE <C> " 

7848 INPUT " TO STOP <END) ' 

7050 IF U*="V" GOSUB 12880 

7060 IF U*="C" THEN CLS: GOTO 5010 

7070 IF U*="END" THEN 1030 

:3000 CLS: GOTO 6030 

8818 IF <A)OR(B)OR<C)OR<D)OR<E)=l THEN 8118 

8020 PRINT, "DATE", "NAME", "CITY" 



;U* 
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